home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok83.lha / SpecialStrings1.0 / SpecialStrings.dok < prev    next >
Encoding:
Text File  |  1993-08-15  |  1.4 KB  |  46 lines
  1. (*************************************************************************
  2.  
  3. :Program.    SpecialStrings.mod
  4. :Contents.   some spacial string routines
  5. :Author.     Hartmut Goebel [hG]
  6. :Address.    Aufseßplatz 5, D-8500 Nürnberg 40
  7. :Address.    UseNet: hartmut@oberon.nbg.sub.org
  8. :Address.    Z-Netz: hartmut@asn.zer   Fido: 2:246/81.1
  9. :Copyright.  Copyright © 1990 by Hartmut Goebel
  10. :Language.   Oberon-2
  11. :Translator. Amiga Oberon V2.45
  12. :Imports.    Printf (Volker Rudolph)
  13. :History.    V1.0, 12 Nov 1992 [hG]
  14. :Date.       12 Nov 1992 22:00:08
  15.  
  16. *************************************************************************)
  17.  
  18. DEFINITON SpecialStrings;
  19.  
  20. PROCEDURE MakeUnique * (VAR unique: ARRAY OF CHAR;
  21.                               base: ARRAY OF CHAR; (* $CopyArrays- *)
  22.                         VAR    num: INTEGER): BOOLEAN;
  23.  
  24. END SpecialStrings.
  25.  
  26.  
  27. PROCEDURE MakeUnique * (VAR unique: ARRAY OF CHAR;
  28.                               base: ARRAY OF CHAR; (* $CopyArrays- *)
  29.                         VAR    num: INTEGER): BOOLEAN;
  30.  
  31.  
  32.   Erzeugt eine String in der Form <unique>.<num+1>.
  33.  
  34.   Diese werden z.B. für PublicScreens oder ARexx-Ports benötigt, um
  35.   enstrechend dem Style-Guide einen eindeutigen Namen zu erzeugen.
  36.  
  37.   Bsp: num := 0;
  38.        IF MakeUnique(name,"MyScreen",num) THEN END;
  39.  
  40.        --> unique = "MyScreen.1;
  41.  
  42.        IF MakeUnique(name,"MyScreen",num) THEN END;
  43.  
  44.        --> unique = "MyScreen.2;
  45.  
  46.